home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00089_BackgoundSoundChangeDown.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  615 b   |  13 lines
  1. on mouseUp
  2.   cursor(-1)
  3.   set LeftLoc to the locH of sprite 16 + (the width of sprite 16 / 2) - 47
  4.   set TopLoc to the locV of sprite 16 + (the height of sprite 16 / 2) - 59
  5.   set RightLoc to the locH of sprite 16 + (the width of sprite 16 / 2) + 47
  6.   set BottomLoc to the locV of sprite 16 + (the height of sprite 16 / 2) + 61
  7.   set LeftOrigin to the stageLeft
  8.   set TopOrigin to the stageTop
  9.   set the rect of window "Stdsound.dir" to rect(LeftOrigin + LeftLoc, TopOrigin + TopLoc, LeftOrigin + RightLoc, TopOrigin + BottomLoc)
  10.   set the windowType of window "Stdsound.dir" to 2
  11.   open(window "Stdsound.dir")
  12. end
  13.